home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS031.dsk / DO YOU KNOW YOUR APPLE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  78 lines
  1. 0  LIST 25900
  2. 1  FOR X = 1 TO 2000: NEXT X
  3. 10  REM =========================
  4. 13  REM DO YOU KNOW YOUR APPLE?<CTRL-J>
  5. 30  REM (PI) 3.141592653589793...<CTRL-J>
  6. 40  REM PROGRAMMING INTERNATIONAL
  7. 60  REM BY CUSIMANO           <CTRL-J>
  8. 80  REM =========================
  9. 100  TEXT : HOME 
  10. 110  HTAB 8
  11. 120  INVERSE : PRINT " DO YOU KNOW YOUR APPLE? "
  12. 130  NORMAL 
  13. 1000  READ NMBR: HOME : POKE 34,3
  14. 1020  FOR Q = 1 TO NMBR
  15. 1030 QU = 0
  16. 1100  HOME : VTAB 1: HTAB 14: PRINT "QUESTION #"Q
  17. 1120  VTAB 4
  18. 1200  READ A$
  19. 1240  FOR A = 1 TO  LEN(A$) -1
  20. 1260 B$ =  MID$ (A$,A,1)
  21. 1270  IF QU = 0  AND B$ = "@"  THEN PLACE = A: PRINT : PRINT :QU = QU +1
  22. 1275  IF QU = 0  AND B$ = "@"  THEN PLACE = A: PRINT : PRINT : PRINT 
  23. 1280  IF QU < >0  AND B$ = "@"  THEN  PRINT : PRINT : PRINT QU".  ";:QU = QU +1: GOTO 1320
  24. 1300  PRINT B$;
  25. 1320  NEXT A
  26. 1340 BOTTM =  PEEK(37) +1
  27. 1400  VTAB 4: HTAB PLACE
  28. 1410  INPUT "?";B$
  29. 1420  IF  LEN(B$) >1  OR  LEN(B$) <1  THEN  VTAB 4: CALL  -868: GOTO 1400
  30. 1430 CRECT =  VAL( RIGHT$(A$,1))
  31. 1440 B =  VAL(B$)
  32. 1500 BOTTM = BOTTM +3
  33. 1510  IF BOTTM >24  THEN BOTTM = 22: SPEED= 1: PRINT : PRINT : PRINT : SPEED= 255
  34. 1550  VTAB BOTTM
  35. 1560  IF B = CRECT  THEN 1600
  36. 1570  PRINT "NO.  #"CRECT" IS THE CORRECT ANSWER"
  37. 1575 WRNG = WRNG +1
  38. 1580  GOTO 1700
  39. 1600  PRINT "CONGRATULATIONS!   A CORRECT ANSWER!"
  40. 1620 RGHT = RGHT +1
  41. 1700  PRINT RGHT;: HTAB 4: PRINT "RIGHT";: HTAB 20: PRINT WRNG;: HTAB 23: PRINT "WRONG  ";
  42. 1720  GET A$,A$
  43. 1800  NEXT Q
  44. 2000  TEXT : HOME 
  45. 2020  PRINT "   OUT OF "NMBR" QUESTIONS, YOU"
  46. 2030  PRINT "GOT "RGHT" RIGHT AND "WRNG" WRONG"
  47. 2040  PRINT 
  48. 2050  PRINT "   THAT GIVES YOU A MARK OF"
  49. 2060  PRINT RGHT/NMBR *100"% RIGHT"
  50. 2070  PRINT WRNG/NMBR *100"% WRONG"
  51. 19900  REM LINE#20000 TELLS HOW
  52. 19903  REM MANY QUESTIONS THERE
  53. 19906  REM ARE TO PRESENT.<CTRL-J><CTRL-J>
  54. 19920  REM AT THE END OF EVERY
  55. 19923  REM DATA LINE IS A NUM-
  56. 19926  REM BER, THAT NUMBER IS
  57. 19929  REM THE CORRECT ANSWER.<CTRL-J><CTRL-J>
  58. 19932  REM THE VERY FIRST PART
  59. 19935  REM OF THE DATA LINE IS
  60. 19938  REM THE QUESTION.<CTRL-J><CTRL-J>
  61. 19940  REM BETWEEN THE QUESTION
  62. 19943  REM AND THE FIRST OPTION
  63. 19947  REM AND THE SECOND OPTION
  64. 19950  REM ETC. IS A '@'<CTRL-J><CTRL-J>
  65. 20000  DATA 12
  66. 20010  DATA WHERE IS THE POWER SWITCH@BELOW THE SHIFT KEY@AT THE REAR LEFT-HAND CORNER@UNDER THE COMPUTER@THERE IS NONE2
  67. 20020  DATA HOW MANY INPUT/OUTPUT PORTS ARE THERE@9@0@4@8@164
  68. 20030  DATA WHAT IS THE '6502'@A MEMORY LOCATION@AN INTEGER NUMBER@A CENTRAL PROCESSING UNIT3
  69. 20040  DATA WHERE IS THE APPLE'S EXTERNAL SPEAKER@FRONT LEFT-HAND SIDE@ANYWHERE@UNDER SPACEBAR2
  70. 20050  DATA WHAT HAPPENS WHEN YOU TYPE <SHIFT-G>@NOTHING@A BELL WILL SOUND@A 'G' WILL BE PRINTED@NONE OF THE ABOVE3
  71. 20060  DATA WHO MADE THE FIRST APPLE@APPLE COMPUTER INC.@U.S. GOVERNMENT@RADIO SHACK@PETER & STEVEN HAGAN@IBM@WOZNIAK & JOBS@NONE OF THE ABOVE6
  72. 20070  DATA WHAT IS MEANT BY 32K@SAME AS 32 G'S@32000 BITS@32000 BYTES@32767 BYTES@32 IC'S@KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK4
  73. 20080  DATA WHAT IS 'DOS'@A SHORT FORM FOR 'DOES'@DUMB OPERATING SYSTEM@DOLBY OVERRIDE SYSTEM@DISK OPERATING SYSTEM@DISKETTE OPERATING SYSTEM@DO'S AND DON'TS@DOUBLE OUTPUT SPEAKER4
  74. 20090  DATA HOW MANY COLORS IN 'HI-RES GRAPHICS'@FOUR@NINE@EIGHT@SIX@ZERO@TWO@ONE3
  75. 20100  DATA WHAT HAPPENS WHEN YOU TYPE 'LOAD'@LOADS MORE MEMORY INTO MACHINE@NOTHING UNTIL YOU HIT RETURN@LOADS FROM DISKETTE@LOADS FROM CASSETTE@FILLS UP MACHINE WITH JUNK@NONE OF THE BELOW4
  76. 20110  DATA WHAT HAPPENS WHEN THE POWER SWITCH IS    PRESSED@TURNS MACHINE ON/OFF@NOTHING@BREAKS LIGHT@SAME AS RESET KEY@NONE OF THE ABOVE@NONE OF THE BELOW3
  77. 20120  DATA WHAT DOES 'BASIC' STAND FOR@AN EASY LANGUAGE@BASIC APPLE SYSTEMS INSTRUCTION CODE@BEGINERS ALL PURPOSE INSTRUCTION CODE@BE SMART IN COMPUTERS@NOTHING@WHAT EVER YOU WANT3
  78. 25900  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>           <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>FROM:  APPLE-CAN<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>